home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #2 / utv1n2s1.d64 / index writer (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  2KB  |  56 lines
  1. 10 poke53281,0:poke53280,11:printchr$(14):print"[147]"
  2. 19 printtab(10)"                     "
  3. 20 printtab(10)"     [153][201]ndexwriter     "
  4. 22 fori=1to8:printtab(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":next
  5. 25 fori=49152to49336:reada:pokei,a:next
  6. 30 printtab(5)"[154][1] full text description
  7. 31 [153][163]5)"[2] capsule summary of commands
  8. 32 getk$:ifk$<>"1"andk$<>"2"then32
  9. 33 ifk$="2"then2000
  10. 40 :
  11. 50 sys49152
  12. 180 :
  13. 200 print:print:gosub1000
  14. 205 print"[147][153]             [201]ndexwriter                "
  15. 210 print"[204]oading...."
  16. 220 load "indexwriter",8
  17. 230 end
  18. 290 :
  19. 1000 poke198,0:print"      [208]ress any key to continue..."
  20. 1010 getk$:ifk$=""then1010
  21. 1015 print"[147][153]              [201]ndexwriter               "
  22. 1020 return
  23. 2000 print"[147][153]              [201]ndexwriter               "
  24. 2010 printtab(5)"[198]1 = change border color
  25. 2020 [153][163]5)"asc3 = change screen color
  26. 2030 printtab(5)"[198]5 = change text color
  27. 2040 [153][163]5)"asc7 = display editing commands
  28. 2050 printtab(5)"[198]2 = load a card
  29. 2060 [153][163]5)"asc4 = save a card
  30. 2070 printtab(5)"[198]6 = print a card
  31. 2080 [153][163]5)"asc8 = exit program
  32. 2090 print:gosub1000
  33. 2095 print"[204]ine [197]diting [195]ommands:
  34. 2096 [153][163]4)"str$val(NULL)val(NULL)val    = delete a character
  35. 2097 printtab(4)"[201][206][211][197][210][212]    = insert a character
  36. 2100 [153][163]4)"len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)closestr$close=closedelete a row of text
  37. 2110 printtab(4)"[195][207][206][212][210][207][204] [201] = insert a row of text
  38. 2120 [153][163]4)"len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) val = erase to end of line
  39. 2125 printtab(4)"[200][207][205][197]      = home cursor
  40. 2130 [153][163]4)"len(NULL)(NULL)/left$(NULL)(NULL)val  = clear screen/home cursor
  41. 2160 goto200
  42. 2170 :
  43. 5000 data  169,147,032,210,255,169,109,160,192,032,030,171,032,204,255,169,010
  44. 5010 data  162,098,160,192,032,189,255,169,002,162,008,160,002,032,186,255,032
  45. 5020 data  192,255,162,002,032,198,255,032,207,255,141,108,192,165,144,201,064
  46. 5030 data  240,013,173,108,192,201,042,240,015,032,210,255,076,041,192,169,002
  47. 5040 data  032,195,255,032,204,255,096,169,155,160,192,032,030,171,165,197,201
  48. 5050 data  064,240,250,169,109,160,192,032,030,171,076,041,192,084,069,088,084
  49. 5060 data  047,073,078,068,069,088,013,147,018,153,032,032,032,032,032,032,032
  50. 5070 data  032,032,032,032,032,032,032,201,078,068,069,088,087,082,073,084,069
  51. 5080 data  082,032,032,032,032,032,032,032,032,032,032,032,032,032,032,032,146
  52. 5090 data  005,000,017,208,082,069,083,083,032,065,078,089,032,075,069,089,032
  53. 5100 data  084,079,032,067,079,078,084,073,078,085,069,046,046,046,000
  54. 9999 :
  55. 10000 open15,8,15,"s0:loader/index":close15:save"0:loader/index",8
  56.